home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / watchdog.d < prev    next >
Text File  |  1997-10-26  |  562b  |  20 lines
  1. DEFINITION MODULE WatchDog;
  2.  
  3. IMPORT data;
  4.  
  5. TYPE filtResult = (accept, filter, forget);
  6.  
  7. PROCEDURE CheckThis(msg : data.PtrRecord) : filtResult;
  8. (* šberprft eine Message und gibt das entsprechende
  9.  * Ergebnis zurck. Wenn der interne Watchdog ausgeschaltet ist,
  10.  * wird immer accept zurckgegeben.
  11.  * Erl„uterung der Ergebnisse:
  12.  * accept: Nachricht einfgen und anzeigen.
  13.  * filter: Nachricht einfgen, aber nicht anzeigen (Flag setzen)
  14.  * forget: Nachricht nicht einfgen
  15.  *)
  16.  
  17. PROCEDURE GetFiltList(REF name : ARRAY OF CHAR);
  18.  
  19. END WatchDog.
  20.